home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / mousprcm.arc / PROCOMM.DEF < prev    next >
Text File  |  1986-12-03  |  6KB  |  148 lines
  1. ;Pop-up Menu for Procomm using the Microsoft Mouse Makemenu Compiler.
  2. ;Compile with Makemenu, then call Menu Procomm using Menu.com
  3.  
  4. BEGIN lb,rb,bb,lf,rt,up,dn,40,80
  5. bb:     EXECUTE oldkey,mmenu
  6. rb:     TYPE 27         ; Escape
  7. lb:     TYPE 121        ; Yes
  8. lf:     TYPE 0,75       ; Cursor left
  9. rt:     TYPE 0,77       ; Cursor right
  10. up:     TYPE 0,72       ; Cursor up
  11. dn:     TYPE 0,80       ; Cursor down
  12.  
  13. oldkey: ASSIGN lb,rb,bb,lf,rt,up,dn,40,80      ;Redefine beginning sensitivity
  14. mmenu:  POPUP 9,2               ; Start of Popup Menu
  15. TEXT "╔═══════════════════════════════ MAIN MENU ══════════════════════════════════╗"
  16. TEXT "║ Dialing Directory  Alt-D Printer Toggle ... Alt-L Chat Mode ........ Alt-O ║"
  17. TEXT "║ Automatic Redial . Alt-R Screen Dump ...... Alt-G Host Mode ........ Alt-Q ║"
  18. TEXT "║ Send File ........ PgUp  Clear Screen ..... Alt-C Redisplay ....... Alt-F6 ║"
  19. TEXT "║ Receive File ..... PgDn  Open Log ........ Alt-F1 Elapsed Time ..... Alt-T ║"
  20. TEXT "║ DOS Gateway ..... Alt-F4 Log Toggle ...... Alt-F2 Auto Answer ...... Alt-Y ║"
  21. TEXT "║ Hang Up Phone .... Alt-H Editor ........... Alt-A Command Files ... Alt-F5 ║"
  22. TEXT "║ Break Key ....... Alt-F7 View a File ...... Alt-V Kermit Server Cmd  Alt-K ║"
  23. TEXT "║ Change Directory . Alt-B CR-CR/LF Toggle . Alt-F3 Program Info ..... Alt-I ║"
  24. TEXT "║ Directory ........ Alt-F Modem Settings ... Alt-P Left Buttom  = Yes       ║"
  25. TEXT "║ Setup Screen ..... Alt-S Keyboard Macros .. Alt-M Right Buttom = No, Esc   ║"
  26. TEXT "║ Duplex Toggle .... Alt-E Translate Table .. Alt-W Both Buttons = This Menu ║"
  27. TEXT "║ Exit to DOS ...... Alt-X Color Set ........ Alt-Z Exit this Menu           ║"
  28. TEXT "╚════════════════════════════════════════════════════════════════════════════╝"
  29.  
  30. SELECT 2,3,24, dialdir  ; Dialing Directory
  31. SELECT 3,3,24, redial   ; Automatic Redial
  32. SELECT 4,3,24, xmit     ; Send File
  33. SELECT 5,3,24, recv     ; Receive File
  34. SELECT 6,3,24, suspnd   ; DOS Gateway
  35. SELECT 7,3,24, hangup   ; Hang Up Phone
  36. SELECT 8,3,24, break    ; Break Key
  37. SELECT 9,3,24, chdir    ; Change Directory
  38. SELECT 10,3,24, dir     ; Directory
  39. SELECT 11,3,24, setup   ; Setup Screen
  40. SELECT 12,3,24, duplex  ; Duplex Toggle
  41. SELECT 13,3,24, exit    ; Exit to DOS
  42. SELECT 2,28,24, printr  ; Printer Toggle
  43. SELECT 3,28,24, scrdmp  ; Screen Dump
  44. SELECT 4,28,24, cls     ; Clear Screen
  45. SELECT 5,28,24, logon   ; Log On
  46. SELECT 6,28,24, logof   ; Log Toggle
  47. SELECT 7,28,24, editor  ; Editor
  48. SELECT 8,28,24, view    ; View a File
  49. SELECT 9,28,24, crlf    ; CR-CR/LF Toggle
  50. SELECT 10,28,24, modem  ; Modem Settings
  51. SELECT 11,28,24, macros ; Macros
  52. SELECT 12,28,24, xlate  ; Translate Table
  53. SELECT 13,28,24, colors ; Color Set
  54. SELECT 2,53,24, chat    ; Chat Mode
  55. SELECT 3,53,24, host    ; Host Mode
  56. SELECT 4,53,24, redisp  ; Redisplay
  57. SELECT 5,53,24, eltime  ; Elapsed Time
  58. SELECT 6,53,24, autoan  ; Auto Answer
  59. SELECT 7,53,24, cmds    ; Command Files
  60. SELECT 8,53,24, kermit  ; Kermit Server
  61. SELECT 9,53,24, info    ; Program Info
  62. SELECT 13,53,24         ; Cancel
  63. PEND            ; End of Popup Menu
  64.  
  65. ;Keys for each Menu item.
  66. dialdir: TYPE 0,32      ; Alt-D
  67. redial: TYPE 0,19       ; Alt-R
  68. xmit:   TYPE 0,73       ; PgUp
  69. recv:   TYPE 0,81       ; PgDn
  70. suspnd: TYPE 0,107      ; Alt-F4
  71. hangup: TYPE 0,35       ; Alt-H
  72. break:  TYPE 0,110      ; Alt-F7
  73. chdir:  TYPE 0,48       ; Alt-B
  74. dir:    TYPE 0,33       ; Alt-F
  75. setup:  TYPE 0,31       ; Alt-S
  76. duplex: TYPE 0,18       ; Alt-E
  77. exit:   TYPE 0,45       ; Alt-X
  78. printr: TYPE 0,38       ; Alt-L
  79. scrdmp: TYPE 0,34       ; Alt-G
  80. cls:    TYPE 0,46       ; Alt-C
  81. logon:  TYPE 0,104      ; Alt-F1
  82. logof:  TYPE 0,105      ; Alt-F2
  83. editor: TYPE 0,30       ; Alt-A
  84. view:   TYPE 0,47       ; Alt-V
  85. crlf:   TYPE 0,106      ; Alt-F3
  86. modem:  TYPE 0,25       ; Alt-P
  87. macros: TYPE 0,50       ; Alt-M
  88. xlate:  TYPE 0,17       ; Alt-W
  89. colors: EXECUTE newkey,colmnu  ; Redefine sensitivity and goto color menu
  90. chat:   TYPE 0,24       ; Alt-O
  91. host:   TYPE 0,16       ; Alt-Q
  92. redisp: TYPE 0,109      ; Alt-F6
  93. eltime: TYPE 0,20       ; Alt-T
  94. autoan: TYPE 0,21       ; Alt-Y
  95. cmds:   TYPE 0,108      ; Alt-F5
  96. kermit: TYPE 0,37       ; Alt-K
  97. info:   TYPE 0,23       ; Alt-J
  98.  
  99.  
  100. ;Redefine the mouse sensitivity for the color set menu
  101. newkey: ASSIGN  lb,rb,bb,lf,rt,up,dn,80,40    ; Redefine sensitivity
  102. colmnu: TYPE 0,44               ; Alt-Z
  103. ;--------------------------------------------------------------------
  104. ;This was an experiment that didn't work. The idea was to pop-up the
  105. ;Procomm File Transfer Menu amd then pop-up the getkey menu to make a 
  106. ;selection; ie, Receive a file would be EXECUTE recvit,getkey. However
  107. ;the Procomm menu never poped up; you must need a time delay before
  108. ;executing the getkey menu.
  109.  
  110. sendit: TYPE 0,73       ; PgUp
  111. recvit: TYPE 0,81       ; PgDn
  112.  
  113. getkey: POPUP 10,3
  114. TEXT "╔══════╗"
  115. TEXT "║  1.  ║"
  116. TEXT "║  2.  ║"
  117. TEXT "║  3.  ║"
  118. TEXT "║  4.  ║"
  119. TEXT "║  5.  ║"
  120. TEXT "║  6.  ║"
  121. TEXT "║  7.  ║"
  122. TEXT "║  8.  ║"
  123. TEXT "║  9.  ║"
  124. TEXT "║ Esc  ║"
  125. TEXT "╚══════╝"
  126.  
  127. SELECT 2,3,4, one
  128. SELECT 3,3,4, two
  129. SELECT 4,3,4, three
  130. SELECT 5,3,4, four
  131. SELECT 6,3,4, five
  132. SELECT 7,3,4, six
  133. SELECT 8,3,4, seven
  134. SELECT 9,3,4, eight
  135. SELECT 10,3,4, nine
  136. SELECT 11,3,4, esc
  137. PEND            ;End of menu
  138.  
  139. one:    TYPE "1"
  140. two:    TYPE "2"
  141. three:  TYPE "3"
  142. four:   TYPE "4"
  143. five:   TYPE "5"
  144. six:    TYPE "6"
  145. seven:  TYPE "7"
  146. eight:  TYPE "8"
  147. nine:   TYPE "9"
  148.